home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / xtros2.zip / PATCHXTR.CMD < prev    next >
OS/2 REXX Batch file  |  1992-12-17  |  4KB  |  171 lines
  1. echo off
  2. CLS
  3. echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
  4. echo     OF THE PRODUCT YOU ARE PATCHING.
  5. echo     PATCH.EXE will not allow you to patch a product that has already
  6. echo     been patched.
  7. echo  
  8. ::
  9. SET XTRFLAG=410
  10. ::
  11. IF %1! == !        GOTO PARAM
  12. IF %1  == XTRDOS   GOTO XTRDOS
  13. IF %1  == XTROS2   GOTO XTROS2
  14. IF %1  == XQLCALLS GOTO XQLCALLS
  15. IF %1  == XQLP     GOTO XQLP
  16. IF %1  == XQLPO    GOTO XQLP
  17. IF %1  == xtrdos   GOTO XTRDOS
  18. IF %1  == xtros2   GOTO XTROS2
  19. IF %1  == xqlcalls GOTO XQLCALLS
  20. IF %1  == xqlp     GOTO XQLP
  21. IF %1  == xqlpo    GOTO XQLP
  22. GOTO PARAM
  23. ::
  24. :XTRDOS
  25. echo REMINDER:
  26. echo You also need to patch XQLP.EXE and XQLPO.EXE
  27. echo .
  28. echo XTRIEVE v4.10
  29. ::
  30. SET PATCHXTR=%1.410
  31. SET RTPXTR=%1.RTP
  32. SET FILEXTR=XTRIEVE.EXE
  33. SET ORGXTR=XTR410.ORG
  34. GOTO PATCH
  35. ::
  36. :XTR411
  37. ::
  38. echo XTRIEVE v4.11a
  39. ::
  40. SET PATCHXTR=%1.411
  41. SET RTPXTR=%1.RTP
  42. SET FILEXTR=XTRIEVE.EXE
  43. SET ORGXTR=XTR411.ORG
  44. SET XTRFLAG=411
  45. GOTO PATCH
  46. ::
  47. :XTROS2
  48. echo REMINDER:
  49. echo You also need to patch XQLCALLS.DLL
  50. echo .
  51. echo XTRIEVE OS/2 v4.11a
  52. ::
  53. SET PATCHXTR=%1.411
  54. SET RTPXTR=%1.RTP
  55. SET FILEXTR=XTRIEVE.EXE
  56. SET ORGXTR=XTRO411.ORG
  57. GOTO PATCH
  58. ::
  59. :XQLCALLS
  60. echo REMINDER:
  61. echo You also need to patch XTRIEVE.EXE
  62. ::
  63. IF EXIST XQLCALLS.ORG GOTO XQLNEXT
  64. ::
  65. echo .
  66. echo *** WARNING ***
  67. echo (XQLCALLS.ORG from the original XTRIEVE/2 for OS/2 diskette is required
  68. echo for this patch)
  69. GOTO END
  70. ::
  71. :XQLNEXT
  72. ::
  73. SET PATCHXTR=%1.211
  74. SET RTPXTR=%1.RTP
  75. SET FILEXTR=%1.DLL
  76. SET ORGXTR=%1.ORG
  77. GOTO PATCH
  78. ::
  79. :XQLP
  80. echo REMINDER:
  81. echo You also need to patch XTRIEVE.EXE
  82. SET PATCHXTR=%1.21A
  83. SET RTPXTR=%1.RTP
  84. SET FILEXTR=%1.EXE
  85. SET ORGXTR=%121A.ORG
  86. GOTO PATCH
  87. ::
  88. :PATCH
  89. ::
  90. ECHO CHECKING FILES ............
  91. ::
  92. IF NOT EXIST PATCH.EXE GOTO NOPAT
  93. IF NOT EXIST %PATCHXTR% GOTO PATERR
  94. IF NOT EXIST %FILEXTR% GOTO FILERR
  95. IF NOT EXIST %ORGXTR% REN %FILEXTR% %ORGXTR%
  96. :PATORG
  97. ::
  98. ECHO PREPARING FILES ...........
  99. ::
  100. COPY %ORGXTR% %FILEXTR%
  101. COPY %PATCHXTR% %RTPXTR%
  102. ::
  103. ECHO STARTING PATCH PROCESS ....
  104. ::
  105. PATCH %RTPXTR%
  106. DEL %RTPXTR%
  107. IF %XTRFLAG% == 411 GOTO FIXED
  108. IF %1 == XTRDOS GOTO XTR411
  109. IF %1 == xtrdos GOTO XTR411
  110. GOTO FIXED
  111. ::
  112. :NOPAT
  113. echo  
  114. echo CANNOT FIND PATCH.EXE
  115. echo  
  116. echo The Patch Install Utility (PATCH.EXE) is required to install
  117. echo the patches for this product.  Please copy PATCH.EXE to the directory
  118. echo you are working in............................................
  119. GOTO END
  120. ::
  121. :PATERR
  122. echo  
  123. echo CANNOT FIND %PATCHXTR%
  124. GOTO END
  125. ::
  126. :FILERR
  127. IF EXIST %ORGXTR% GOTO PATORG
  128. echo  
  129. echo CANNOT FIND %FILEXTR%
  130. GOTO END
  131. ::
  132. :PARAM
  133. echo  
  134. echo THE FORMAT IS:
  135. echo  
  136. echo PATCHXTR [filename]
  137. echo  
  138. echo WHERE [filename] IS:
  139. echo  
  140. echo       - XTRDOS   .........   XTRIEVE Plus v4.10
  141. echo       - XQLP     .........   XQLP v2.11a
  142. echo       - XQLPO    .........   XQLPO v2.11a
  143. echo       - XTROS2   .........   XTRIEVE/2 for OS/2 v4.11a
  144. echo       - XQLCALLS .........   XQLCALLS v2.11 (Local)
  145. echo  
  146. GOTO END
  147. ::
  148. :FIXED
  149. echo  
  150. echo  
  151. echo ***** NOTICE: The %ORGXTR% file in your current directory is the
  152. echo               original.  This batch file renames %FILEXTR% to %ORGXTR%
  153. echo               if it does not find %ORGXTR%.  This will allow you to
  154. echo               keep the original on hand without patches applied.
  155. echo               The next time the patches are applied, it looks for
  156. echo               the %ORGXTR% file first.  Thus, patches will always be
  157. echo               applied to the unpatched version.
  158. echo  
  159. echo               ** If PATCH.EXE returns:
  160. echo                  'Invalid copy of file found. No update can be done.'
  161. echo                  you will need to delete the %ORGXTR% file and
  162. echo                  copy the unpatched %FILEXTR% to this directory.
  163. echo  
  164. ::
  165. :END
  166. SET PATCHXTR=
  167. SET RTPXTR=
  168. SET FILEXTR=
  169. SET ORGXTR=
  170. SET XTRFLAG=
  171.